home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Bits and Bytes Volume 11, No. 05 (1989-11)(Apple Computing Enjoyment Society)(Side A).zip / Bits and Bytes Volume 11, No. 05 (1989-11)(Apple Computing Enjoyment Society)(Side A).po / STARTUP.bas < prev   
BASIC Source File  |  1996-12-24  |  1KB  |  34 lines
  1. 2000  TEXT : HOME : NORMAL :BUZZ =  -16336
  2. 2005  SPEED= 150
  3. 2010 A$ = "WELCOME  TO  BITS  AND  BYTES":
  4. 2020  FOR LTR = 1 TO  LEN(A$)
  5. 2030 H = (20 - LEN(A$)/2) +LTR: REM CENTER TEXT
  6. 2040 LTR$ =  MID$ (A$,LTR,1)
  7. 2050  FOR V =  INT( RND(1) *15) +1 TO 1  STEP  -1
  8. 2060  VTAB V: HTAB H
  9. 2070  PRINT LTR$
  10. 2080  CALL  -868
  11. 2090  NEXT 
  12. 2100  FOR J = 1 TO 2:S =  PEEK(BUZZ): NEXT 
  13. 2110  NEXT 
  14. 2120  NORMAL 
  15. 2121  VTAB 5: PRINT "DISK NEWSLETTER OF THE APPLE COMPUTER"
  16. 2125  VTAB 6: HTAB 10: PRINT "ENJOYMENT SOCIETY"
  17. 2130  PRINT : PRINT 
  18. 2135  HTAB 10: PRINT "VOLUME 11   NUMBER 5"
  19. 2136  HTAB 12: PRINT "NOVEMBER - 1989"
  20. 2140  PRINT : PRINT 
  21. 2150  PRINT "NORT PROGRAM IS USED WITH PERMISSION OF THE AUTHOR"
  22. 2160  INVERSE 
  23. 2165  PRINT : PRINT 
  24. 2170  HTAB 16: PRINT " E N J O Y ! "
  25. 2175  NORMAL 
  26. 2180  PRINT : PRINT 
  27. 2185  PRINT "PUSH '4' OR '8' TO BE IN 40 OR 80 COLUMN MODE"
  28. 2192  NORMAL 
  29. 2193  PRINT : PRINT : PRINT 
  30. 2194  SPEED= 255: FOR I = 1 TO 1000: NEXT 
  31. 2195  HTAB 8: INVERSE : PRINT "PRESS ANY KEY TO CONTINUE."
  32. 2196  NORMAL : GET A$
  33. 2197  HOME 
  34. 2200  PRINT  CHR$(4)"RUN STARTUP.2"